home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / jpi / viewform.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-01-24  |  2.3 KB  |  76 lines
  1. VERSION 5.00
  2. Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
  3. Begin VB.Form ViewForm 
  4.    BackColor       =   &H00000000&
  5.    BorderStyle     =   0  'None
  6.    Caption         =   "Game View"
  7.    ClientHeight    =   3735
  8.    ClientLeft      =   4650
  9.    ClientTop       =   2445
  10.    ClientWidth     =   4575
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   249
  13.    ScaleMode       =   3  'Pixel
  14.    ScaleWidth      =   305
  15.    WindowState     =   2  'Maximized
  16.    Begin VB.TextBox KeyboardInputBox 
  17.       Height          =   285
  18.       Left            =   960
  19.       TabIndex        =   0
  20.       Top             =   -1200
  21.       Width           =   1575
  22.    End
  23.    Begin MSWinsockLib.Winsock ClientSock 
  24.       Left            =   1920
  25.       Top             =   1560
  26.       _ExtentX        =   741
  27.       _ExtentY        =   741
  28.    End
  29. Attribute VB_Name = "ViewForm"
  30. Attribute VB_GlobalNameSpace = False
  31. Attribute VB_Creatable = False
  32. Attribute VB_PredeclaredId = True
  33. Attribute VB_Exposed = False
  34. Private Sub ClientSock_Close()
  35. Internet.ServerData.ConnectedToServer = False
  36. End Sub
  37. Private Sub ClientSock_Connect()
  38. Internet.ServerData.ConnectedToServer = True
  39. End Sub
  40. Private Sub ClientSock_DataArrival(ByVal bytesTotal As Long)
  41. Dim SData As String
  42. On Error Resume Next
  43. ClientSock.GetData SData, vbString
  44. Call Internet.BreakDownMessage(SData)
  45. End Sub
  46. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  47. Mouse.ButtonStates(Button) = True
  48. Mouse.DragStartPosition.x = x
  49. Mouse.DragStartPosition.y = y
  50. ViewForm.KeyboardInputBox.SetFocus
  51. End Sub
  52. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  53. Mouse.Position.x = x
  54. Mouse.Position.y = y
  55. End Sub
  56. Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  57. Mouse.ButtonStates(Button) = False
  58. ViewForm.KeyboardInputBox.SetFocus
  59. End Sub
  60. Public Sub DestroyGameView()
  61. ViewForm.Hide
  62. Unload ViewForm
  63. End Sub
  64. Public Sub OpenGameView()
  65. Load ViewForm
  66. ViewForm.Show
  67. ViewForm.KeyboardInputBox.SetFocus
  68. End Sub
  69. Private Sub KeyboardInputBox_KeyDown(KeyCode As Integer, Shift As Integer)
  70. KeyStates(KeyCode) = True
  71. Call MiscKeyboardProcessing
  72. End Sub
  73. Private Sub KeyboardInputBox_KeyUp(KeyCode As Integer, Shift As Integer)
  74. KeyStates(KeyCode) = False
  75. End Sub
  76.